object MainForm: TMainForm
  Left = 258
  Top = 231
  Margins.Left = 5
  Margins.Top = 5
  Margins.Right = 5
  Margins.Bottom = 5
  Caption = 'Pit Digger'
  ClientHeight = 893
  ClientWidth = 1320
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -19
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  PixelsPerInch = 168
  TextHeight = 24
  object MainPanel: TPanel
    Left = 949
    Top = 0
    Width = 371
    Height = 893
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Align = alRight
    BevelOuter = bvLowered
    TabOrder = 1
    object ButtonDigger: TButton
      Left = 109
      Top = 42
      Width = 131
      Height = 44
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Caption = 'Digger'
      TabOrder = 0
      OnClick = ButtonDiggerClick
    end
    object MemoInfo: TMemo
      Left = 39
      Top = 140
      Width = 313
      Height = 198
      Margins.Left = 5
      Margins.Top = 5
      Margins.Right = 5
      Margins.Bottom = 5
      Lines.Strings = (
        'Info:'
        'Mouse Move = Rotate'
        'Shift + Vertical Move = Zoom'
        'Control + Move = Pan in XY plane'
        'Alt + Vertical Move = Pan in Z'
        'F + Vertical Move = Adjust camera'
        'L + Vertical Move = Adjust light'
        'R = Reset Scene')
      TabOrder = 1
      OnChange = MemoInfoChange
    end
  end
  object Viewer: TGLSceneViewer
    Left = 0
    Top = 0
    Width = 949
    Height = 893
    Margins.Left = 5
    Margins.Top = 5
    Margins.Right = 5
    Margins.Bottom = 5
    Camera = Camera
    Buffer.BackgroundColor = clSilver
    Buffer.ContextOptions = [roDoubleBuffer, roRenderToWindow, roTwoSideLighting]
    Buffer.FaceCulling = False
    FieldOfView = 154.752243041992200000
    PenAsTouch = False
    Align = alClient
    OnMouseDown = ViewerMouseDown
    OnMouseMove = ViewerMouseMove
    OnMouseUp = ViewerMouseUp
    TabOrder = 0
  end
  object Scene: TGLScene
    Left = 16
    Top = 16
    object DummyCube: TGLDummyCube
      ShowAxes = True
      CubeSize = 1.000000000000000000
      VisibleAtRunTime = True
      object Camera: TGLCamera
        DepthOfView = 50000.000000000000000000
        FocalLength = 100.000000000000000000
        TargetObject = DummyCube
        Position.Coordinates = {0000204100002041000020410000803F}
        Direction.Coordinates = {000000000000803F0000008000000000}
        Up.Coordinates = {00000000000000000000803F00000000}
        Left = 376
        Top = 240
      end
    end
    object Light1: TGLLightSource
      Ambient.Color = {0000003F0000003F0000003F0000803F}
      ConstAttenuation = 1.000000000000000000
      SpotCutOff = 180.000000000000000000
    end
    object HF: TGLHeightField
      Material.FrontProperties.Diffuse.Color = {00000000000000000000803F0000803F}
      Material.PolygonMode = pmLines
      XSamplingScale.Max = 200.000000000000000000
      XSamplingScale.Step = 1.000000000000000000
      YSamplingScale.Max = 200.000000000000000000
      YSamplingScale.Step = 1.000000000000000000
      OnGetHeight = HFGetHeight
    end
    object PathLines: TGLLines
      LineColor.Color = {BEBC3C3F8A8F0F3F8A8F0F3F0000803F}
      LineWidth = 3.000000000000000000
      NodeColor.Color = {BEBC3C3F8A8F0F3F8A8F0F3F0000803F}
      Nodes = <
        item
          Z = 10.000000000000000000
        end
        item
          X = 40.000000000000000000
          Y = 40.000000000000000000
          Z = 10.000000000000000000
        end
        item
          X = 40.000000000000000000
          Y = 40.000000000000000000
          Z = -8.000000000000000000
        end
        item
          X = 40.000000000000000000
          Y = 160.000000000000000000
          Z = -20.000000000000000000
        end
        item
          X = 80.000000000000000000
          Y = 160.000000000000000000
          Z = -20.000000000000000000
        end
        item
          X = 120.000000000000000000
          Y = 120.000000000000000000
          Z = -4.000000000000000000
        end
        item
          X = 120.000000000000000000
          Y = 120.000000000000000000
          Z = 20.000000000000000000
        end
        item
          Z = 20.000000000000000000
        end>
      Options = [loUseNodeColorForLines]
    end
    object Cutter: TGLDummyCube
      CubeSize = 1.000000000000000000
      object ConeX: TGLCone
        Direction.Coordinates = {000000000000803F2EBD3BB300000000}
        PitchAngle = 90.000000000000000000
        Position.Coordinates = {0000000000000000000020410000803F}
        Up.Coordinates = {000000002EBD3BB3000080BF00000000}
        BottomRadius = 10.000000000000000000
        Height = 20.000000000000000000
      end
      object CutterX: TGLCylinder
        Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000803F}
        Direction.Coordinates = {00000000000080BF0000000000000000}
        Position.Coordinates = {00000000000000000000A0400000803F}
        Up.Coordinates = {00000000000000000000803F00000000}
        BottomRadius = 5.000000000000000000
        Height = 10.000000000000000000
        TopRadius = 10.000000000000000000
      end
      object Cylinder: TGLCylinder
        Material.FrontProperties.Diffuse.Color = {0000803F00000000000000000000803F}
        Direction.Coordinates = {00000000000080BF0000000000000000}
        Position.Coordinates = {00000000000000000000A0410000803F}
        Up.Coordinates = {00000000000000000000803F00000000}
        Visible = False
        BottomRadius = 10.000000000000000000
        Height = 20.000000000000000000
        TopRadius = 10.000000000000000000
      end
    end
  end
  object GLCadencer: TGLCadencer
    Left = 96
    Top = 16
  end
end
